home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 05 - 1989 / 05.10 Oct 89 / Driver Code / KillRoutine.a < prev    next >
Encoding:
Text File  |  1988-01-06  |  378 b   |  26 lines  |  [TEXT/MPS ]

  1.                 TITLE            'Timeout for serial IO'
  2.                 BLANKS            ON
  3.                 CASE            ON
  4.                 String            Pascal
  5.  
  6.                 PRINT            OFF
  7.                 INCLUDE         'Traps.a'
  8.                 INCLUDE         'ToolEqu.a'
  9.                 INCLUDE         'QuickEqu.a'
  10.                 INCLUDE         'SysEqu.a'
  11.                 PRINT            ON
  12.  
  13.                 Main
  14.                 
  15. KillStore        DC.L            0
  16.                 
  17. KillRoutine:    
  18.                 LEA                    KillStore,A0
  19.                 MOVE.L                (A0),A0
  20. ;                _Debugger
  21.                 _KillIO
  22.                 RTS
  23.                 
  24.                 ENDP
  25.                 END
  26.